home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / icon / packages.lha / packages / atari / ats.arc / TESTS.ARC / MATH.ICN < prev    next >
Text File  |  1990-03-28  |  363b  |  20 lines
  1. procedure main()
  2.     every i := 1 to 25 do {
  3.     v := 0.25 * i
  4.     wf (v)
  5.     if (v <= 1.0) then
  6.         every wf ((acos | asin) (v))
  7.     else
  8.         every wf ("" | "")
  9.     every wf (atan(v) | atan(v,3))
  10.     every wf ((cos | sin | tan) (v))
  11.     every wf ((sqrt | exp | log) (v))
  12.     wf (log(v,3))
  13.     write ()
  14.     }
  15.     end
  16.  
  17. procedure wf (v)
  18.     writes(left(v,5)," ")
  19.     end
  20.